home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / bbs / amms20d.lha / amms / mbbatch / com / cvtall < prev    next >
Text File  |  1995-05-05  |  1KB  |  60 lines
  1. ;
  2. ;    CVTALL : AMMS-Script zum Konvertieren von AMMS-Befehlstexten
  3. ;
  4. ;    $VER: 1.01 / 22.04.1994
  5. ;
  6. ;    Mit diesem Script werden alle Befehlstexte in den Sprache deutsch und
  7. ;    englisch aus MBTEXT:<SPRACHEN>/COM nach MBCOM:<SPRACHEN> konvertiert.
  8. ;
  9. ;
  10. ;       Das Script sollte so eingebunden werden, dass es ueber Level und
  11. ;       Flags auf die folgende Befehle zugreifen kann :
  12. ;
  13. ;    CVT
  14. ;    EOD
  15. ;    EXTERN
  16. ;    GOSUB
  17. ;    PARSE
  18. ;    RETURN
  19. ;    SET LANGUAGE
  20. ;
  21. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  22. ;
  23. ;    COPY
  24. ;    DELETE
  25. ;    LIST
  26. ;
  27.  
  28. ; Parameter auswerten
  29.  
  30. _parse "CVTALL" p0            ; Keine Parameter erlauben
  31.  
  32. ; TMP-Batchdatei mit allen Befehlsnamen erstellen
  33.  
  34. _ex list >mbmsg:point/'{port}'/cvt mbtext:deutsch/com/#? lformat "_cvt %s"
  35.  
  36. ; Alle Text fuer deutsch und englisch konvertieren
  37.  
  38. _set language/call/quiet "deutsch"    ; Sprache deutsch einstellen
  39. _gosub CONVERT                ; Befehlstexte konvertieren
  40. _set language/call/quiet "english"    ; Sprache englisch einstellen
  41. _gosub CONVERT                ; Befehlstexte konvertieren
  42. _set language/old/quiet            ; Alte Sprache einstellen
  43.  
  44. ; TMP-File loeschen
  45.  
  46. _ex delete mbmsg:point/'{port}'/cvt quiet
  47.  
  48. ; Ende
  49.  
  50. _eod                    ; Ende
  51.  
  52. ;
  53. ; Unterroutine zum Konvertieren aller Befehlstexte
  54. ;
  55. CONVERT:
  56. _disk execute mbmsg:point/'{port}'/cvt    ; Befehlstexte konvertieren
  57. ; Befehlstexte aus MBCOM: nach AMMS:MBCOM kopieren
  58. _ex copy >nil: mbcom:'{alanguage}' amms:mbcom/'{alanguage}'
  59. _return                    ; Ende der Unterroutine
  60.